home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hardcore Visual Basic 5.0 (2nd Edition)
/
Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso
/
Code
/
shared.bas
< prev
next >
Wrap
BASIC Source File
|
1997-06-14
|
500b
|
28 lines
Attribute VB_Name = "MShared"
Option Explicit
' Anything shared by all of VBCore
Private sys As New CSystem
Private vid As New CVideo
Private kbd As New CKeyboard
' Put other global variables and objects here
Property Get System()
Set System = sys
End Property
Property Get Video()
Set Video = vid
End Property
Property Get Keyboard()
Set Keyboard = kbd
End Property
Sub Main()
' Put one-time only initialization here
Debug.Print "Main"
End Sub
'